PROGRAM afficheALLclient;

USES Types, Clients;


	PROCEDURE afficheALLclient(recClient:TTabclient;  recCompte:TTabcompte);
	// on reprend les types tableaux
		VAR
			i:INTEGER;
			j:INTEGER;
			comptepos:INTEGER;
			
		BEGIN
	///////////////////////////////////////////DONNÉES TEST
	recClient.tabclient[1].ID:= 123;
	recClient.tabclient[1].nom:= 'Petit';
	recClient.tabclient[1].prenom:= 'Benoit';
	recClient.tabclient[1].naissance:= '15.05.1991';
	recClient.tabclient[1].politesse:= 'Monsieur';
	recClient.tabclient[1].adresse:= 'Chemin du Sécheron 5';
	recClient.tabclient[1].npa:= '1132';
	recClient.tabclient[1].localite:= 'Lully';
	recClient.tabclient[1].telephone:= '0796208831';
	recClient.tabclient[2].ID:= 789;
	recClient.tabclient[2].nom:= 'Plug';
	recClient.tabclient[2].prenom:= 'Johann';
	recClient.tabclient[2].naissance:= '12.05.1992';
	recClient.tabclient[2].politesse:= 'Monsieur';
	recClient.tabclient[2].adresse:= 'Rte de l''église 2';
	recClient.tabclient[2].npa:= '1064';
	recClient.tabclient[2].localite:= 'Etoy';
	recClient.tabclient[2].telephone:= '0794997979';
	recCompte.compteclient[1].IDcompte:=1212;
	recCompte.compteclient[1].IDclient:=123;
	recCompte.compteclient[1].Libelle:='test';
	recCompte.compteclient[1].taux:='12';
	recCompte.compteclient[1].solde:=1500;
	recCompte.compteclient[1].limite:=500;
	recCompte.compteclient[2].IDcompte:=1212;
	recCompte.compteclient[2].IDclient:=789;
	recCompte.compteclient[2].Libelle:='test2';
	recCompte.compteclient[2].taux:='15';
	recCompte.compteclient[2].solde:=100;
	recCompte.compteclient[2].limite:=100;
	recClient.nbelement:=2;
	recCompte.nbcompte:=2;
	///////////////////////////////////////////DONNÉES TEST
		
			i:=1;
			
			WHILE(i <= recClient.nbelement) DO
				BEGIN
					j:=1;
					comptepos:=0;
					WRITELN('---------------------------------------------------');
					WRITELN('ID: ',recClient.tabclient[i].ID, ' - ',recClient.tabclient[i].nom,' ',recClient.tabclient[i].prenom);
					
					WHILE (j<=recCompte.nbcompte) DO
						BEGIN
							IF(recClient.tabclient[i].ID=recCompte.compteclient[j].IDclient) THEN
								BEGIN
									comptepos:=comptepos+1;
								END;
							j:=j+1;
							
							
						END;
						WRITELN('Ce client possede ',comptepos,' compte(s) chez nous');	
						WRITELN('---------------------------------------------------');
						WRITELN('');
					i:=i+1;
				END;
				
				
		END;
		
		
VAR
	client:TTabClient;
	compte:TTabCompte;
	

BEGIN


	
	AfficheAllClient(client,compte);
	
END.

